home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / icpr20c.arc / STEP415.CMD < prev    next >
OS/2 REXX Batch file  |  1987-07-09  |  2KB  |  112 lines
  1. ; This file was created using MAKESTEP from the package ICPR20
  2. ; designed by Wayne Wolf.  ICPR20 Copyright 1987
  3. ; You may modify this file in any way you wish but since the make
  4. ; files utilize the existing cmd files I discourage it.  If you have
  5. ; comments or useful modifications please contact me, either at
  6. ; unix: ww@ufcsg.ufl.edu  or bbs: PC-EXCHANGE at 404-977-6686.
  7. Page1:
  8.   Clear
  9.   Message "Menu of Bulletin Boards for the 415 area."
  10.   Message "██████████████████████████████████████████████████████████████████████████████"
  11.   Locate 22,15
  12.   Message "          "
  13.   Locate 0,45
  14.   Message "Mode:"
  15.   Locate 0,51
  16.   Find S7 "H"
  17.   IF Found
  18.      Message "Hayes"
  19.   ELSE
  20.      Message "Racal"
  21.   ENDIF
  22.   Locate 0,60
  23.   Message "Redial:"
  24.   Locate 0,68
  25.   Find S8 "A"
  26.   IF Found
  27.      Message "Active"
  28.   ELSE
  29.      Message "Inactive"
  30.   ENDIF
  31.   Locate 2,0
  32.   Message " 1 --> Easy Access (829-6027)"
  33.   Message "D  --> Disconnect and exit to area code dialer     S  --> Switch modes"
  34.   Message "E  --> Execute ICPR20 from within Procomm          R  --> Toggle Redial mode "
  35.   Locate 22,0
  36.   Message "Your Choice -->"
  37.   Goto Retype1
  38. ;
  39. Retype1:
  40.   Locate 22,15
  41.   Get S3
  42.   Switch S3
  43.       Case "E"
  44.          EndSwitch
  45.          Execute "Make.cmd"
  46.       EndCase
  47.       Case "R"
  48.          EndSwitch
  49.          Goto Activate
  50.       EndCase
  51.       Case "S"
  52.          EndSwitch
  53.          Goto Switch
  54.       EndCase
  55.       Case "M"
  56.          Clear
  57.          Message "Manual dial for area "
  58.          Locate 0,21
  59.          Message S2
  60.          Message "What number do you wish to dial --> "
  61.          Locate 1,36
  62.          Get S6
  63.          Assign S5 "Manual dialing."
  64.          Execute "Dial"
  65.       EndCase
  66.       Case "D"
  67.          Execute "Discnect"
  68.       EndCase
  69.       Case "1"
  70.          Assign S5 "Dialing Easy Access at 829-6027."
  71.          Assign S6 "8296027"
  72.          Execute "Dial"
  73.       EndCase
  74.       Default
  75.          Message " "
  76.          Message "Invalid choice, please retype"
  77.          Locate 22,15
  78.          Message "          "
  79.          Goto Retype1
  80.       EndCase
  81.   EndSwitch
  82. ;
  83. Switch:
  84.   Find S7 "R"
  85.   IF Found
  86.      Tran "I!"
  87.      Pause 2
  88.      Tran "ATZ!"
  89.      Assign S7 "H"
  90.      Rflush
  91.   ELSE
  92.      Tran "ATZ I!"
  93.      Pause 2
  94.      Tran "!"
  95.      Assign S7 "R"
  96.      Rflush
  97.   ENDIF
  98.   Pause 3
  99.   Rflush
  100.   Goto Page1
  101. ;
  102. Activate:
  103.   Find S8 "A"
  104.   IF Found
  105.      Assign S8 "I"
  106.   ELSE
  107.      Assign S8 "A"
  108.   ENDIF
  109.   Goto Page1
  110. ;
  111. Exit
  112.